home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group00a.txt / 000031_icon-group-sender _Thu Feb 10 16:27:30 2000.msg < prev    next >
Internet Message Format  |  2001-01-03  |  4KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id QAA17574
  4.     for icon-group-addresses; Thu, 10 Feb 2000 16:27:18 -0700 (MST)
  5. Message-Id: <200002102327.QAA17574@baskerville.CS.Arizona.EDU>
  6. From: Chris.D.Tenaglia@jci.com
  7. Subject: Factoring ?
  8. To: icon-group@optima.CS.Arizona.EDU
  9. Date: Thu, 10 Feb 2000 17:11:31 -0600
  10. X-MIMETrack: Serialize by Router on jwimkrs1.na.jci.com/NA/Johnson_Controls(Release 5.0.2 (Intl)|4 November 1999) at 02/10/2000 05:18:32 PM
  11. Content-Disposition: inline
  12. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  13. Status: RO
  14.  
  15. --0__=4QQHSTvC554gCP08PRRPeaqn66KO2Z6uQGSPth4CdDxFxcvSimeiYQN5
  16. Content-type: text/plain; charset=us-ascii
  17.  
  18.                                                                    Subject:
  19.                                                   Factoring ?
  20.                                                              Attachment(s):
  21.                                                   <font size=-1></font>
  22.  
  23. I noticed some discussion about factoring. I heard there is one in the IPL.
  24. Here is a simple brute force factoring sample. It uses fct.dat which is a
  25. file containing the series of prime number as high as you like. Nothing
  26. fancy here. But it occurs to me that it might be interesting to experiment
  27. with other number series in the file. Keep ot toss, enjoy....
  28.  
  29. procedure main(param)
  30.   x      := param[1]
  31.   value  := x
  32.   limit  := sqrt(x) + 2
  33.   primo  := open("fct.dat")
  34.   primes := []
  35.   every number := !primo do
  36.     {
  37.     (number < limit) | break
  38.     put(primes,number)
  39.     }
  40.   close(primo)
  41.   factors := []
  42.   every number := !primes do
  43.     {
  44.     repeat
  45.       {
  46.       if x%number = 0 then
  47.         {
  48.         put(factors,number)
  49.         x /:= number
  50.         } else {
  51.         break next
  52.         }
  53.       }
  54.     }
  55.   write("\n")
  56.   write("The factors of ",value, " are:")
  57.   every writes(!factors,", ")
  58.   if x > 1 then write(" and ",x)
  59.   write("\n")
  60.   end
  61.  
  62.  
  63. (Embedded image moved to file: pic20891.pcx)
  64.  
  65.  
  66. --0__=4QQHSTvC554gCP08PRRPeaqn66KO2Z6uQGSPth4CdDxFxcvSimeiYQN5
  67. Content-type: application/octet-stream; 
  68.     name="pic20891.pcx"
  69. Content-Disposition: attachment; filename="pic20891.pcx"
  70. Content-Description: Paintbrush
  71. Content-Transfer-Encoding: base64
  72.  
  73. CgUBCAAAAAAJAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  74. AAAAAAAAAAABCgABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  75. AAAAAAAAAAAAAAAAAADGAMMAAMYAwwAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  76. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  77. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  78. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  79. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  80. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  81. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  82. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  83. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  84. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  85. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  86. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  87. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  88. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
  89.  
  90. --0__=4QQHSTvC554gCP08PRRPeaqn66KO2Z6uQGSPth4CdDxFxcvSimeiYQN5--
  91.  
  92.